home *** CD-ROM | disk | FTP | other *** search
/ La Bible Des… Fonts / La Bible des... Fonts.iso / Utilitaires / Mac GS Viewer 1.0 / files / bench.ps < prev    next >
Text File  |  1995-04-24  |  3KB  |  90 lines
  1. %    Copyright (C) 1993, 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % bench.ps
  19. % This file is a "wrapper" for benchmarking.
  20. % It writes timing results on a file called:
  21.  
  22. /BOF where { pop } {
  23.   /BOF (bench.out) def
  24. } ifelse
  25.  
  26.         % Switch to global VM so odef will work.
  27.  
  28. /currentglobal where
  29.  { pop currentglobal true setglobal /setglobal cvx }
  30.  { { } }
  31. ifelse
  32.  
  33.         % Make sure all execution occurs under a `save'.
  34.  
  35. save pop
  36.  
  37.         % Set the output device to an image device.
  38.  
  39. (%END) .skipeof            %****************
  40.  
  41. /Resolution where { pop } { /Resolution 100 def } ifelse
  42. [ Resolution 72.0 div 0 0 Resolution -72.0 div 0 792 ]
  43.   Resolution 8.5 mul cvi
  44.   Resolution 11.0 mul cvi
  45.   <00 ff>
  46. makeimagedevice
  47. setdevice
  48.  
  49. %END
  50.  
  51.         % Redefine 'run' so that it collects timing information.
  52.  
  53. /.orig.run /run load def
  54. /.run.finish    % <file> <time> .run.finish <file>
  55.  { usertime exch sub
  56.    1 index =string cvs .bench.file exch writestring
  57.    .bench.file (: run time = ) writestring
  58.    =string cvs .bench.file exch writestring
  59.    .bench.file ( ms\n) writestring
  60.    .bench.file flushfile
  61.  } bind def
  62. /run        % <string> run -
  63.  {        % We construct a bound procedure here so that
  64.         % we can invoke run recursively.
  65.    cvlit
  66.    2
  67.     { /.orig.run load
  68.       save countdictstack 3 index usertime /.run.finish cvx
  69.       7 array astore cvx exec
  70.       exch countdictstack exch sub { end } repeat
  71.       exch restore
  72.     }
  73.    repeat
  74.         % Don't do the save & restore the last time.
  75.    /.orig.run load
  76.    1 index usertime /.run.finish cvx
  77.    5 array astore cvx exec pop
  78.  } bind odef
  79.  
  80.         % Force a quit after processing files.
  81.  
  82. /.bench.file BOF (w) file def
  83. /executive { .bench.file closefile quit } def
  84.  
  85.         % Make sure we don't incur any pauses.
  86.  
  87. /NOPAUSE true def
  88.  
  89. exec        % restore currentglobal
  90.